Jak zjistit v Delphi datum a cas spusteni Windows ?

Otázka od: Miroslav Sojka

29. 4. 2004 11:03

Dobry den,
nevite nekdo jak zjistit datum a cas spusteni Windows ( to co ukazou WinNT+
po CTRL-ALT-DEL) ?

Dekuji za pripadne odpovedi.

Odpovedá: Jan Fiala

29. 4. 2004 12:19

29.4.2004 Miroslav Sojka:
> Dobry den,
> nevite nekdo jak zjistit datum a cas spusteni Windows ( to co ukazou WinNT+
> po CTRL-ALT-DEL) ?

Funkce GetTickCount() vraci pocet ms od spusteni Windows

--
Jan Fiala
mailto:jan.fiala@wo.cz

Odpovedá: Ondrej Kelle

29. 4. 2004 12:03

> nevite nekdo jak zjistit datum a cas spusteni Windows ( to co
> ukazou WinNT+ po CTRL-ALT-DEL) ?

To je asi cas, kedy sa uzivatel prihlasil, nie cas spustenia Windows.

Da sa na to asi ist viacerymi sposobmi, ja by som skusil NetWkstaUserGetinfo
na zistenie servera, ktory uzivatela autentikoval, a potom na nom
NetUserGetInfo level 2, tam je last_logon.
Neskusal som to.

HTH
TOndrej

Odpovedá: Sommer Pavel

29. 4. 2004 12:16

>Jak zjistit v Delphi datum a cas spusteni Windows ?

Pomoci funkce GetTickCount zjistis pocet milisekund, ktere ubehly od
spusteni Windows, prevedes si je na datum a pak toto datum odectes od
aktualniho data na pocitaci. Vysledkem bude datum, kdy byly spusteny
Windows.

PaS.

Odpovedá: Dalibor Toman

29. 4. 2004 13:23

On Thursday, April 29, 2004 12:46 PM [CET], Sommer Pavel
<psommer@cpoj.cz> wrote:

>> Jak zjistit v Delphi datum a cas spusteni Windows ?
>
> Pomoci funkce GetTickCount zjistis pocet milisekund, ktere ubehly od
> spusteni Windows, prevedes si je na datum a pak toto datum odectes
od
> aktualniho data na pocitaci. Vysledkem bude datum, kdy byly spusteny
> Windows.
>

zajimave zjisteni, ze ve windowsim svete nikdo nepredpoklada, ze by
pocitac snad mohl bezet delsi dobu

FYI: citac casu vraceny GetTickCount pretece cca kazdych 49 dni..

D. Toman

Odpovedá: Miroslav Sojka

29. 4. 2004 13:30

Neco takovyho zkousim, ale porad to pada na chybu EConvertError ( pri tom
prevodu TimeStampToDateTime).
Tady je zdrojak

function TForm5.GetLastBoot(Sender : TObject) : string;
var
  pom : TDateTime;

begin
  pom := TimeStampToDateTime(MSecsToTimeStamp(GetTickCount));
  pom := Date - pom;
  GetLastBoot := DateTimeToStr(pom);
end;

----- Original Message -----
From: "Sommer Pavel" <psommer@cpoj.cz>
To: <delphi-l@clexpert.cz>
Sent: Thursday, April 29, 2004 12:46 PM
Subject: Re: Jak zjistit v Delphi datum a cas spusteni Windows ?

> >Jak zjistit v Delphi datum a cas spusteni Windows ?
>
> Pomoci funkce GetTickCount zjistis pocet milisekund, ktere ubehly od
> spusteni Windows, prevedes si je na datum a pak toto datum odectes od
> aktualniho data na pocitaci. Vysledkem bude datum, kdy byly spusteny
> Windows.
>
> PaS.
>
>
>
>

Odpovedá: Ondrej Kelle

29. 4. 2004 13:36

> zajimave zjisteni, ze ve windowsim svete nikdo nepredpoklada, ze by
> pocitac snad mohl bezet delsi dobu
> FYI: citac casu vraceny GetTickCount pretece cca kazdych 49 dni..

Na NT sa da pouzit performance counter 'System Up Time'. Priklad
(GetSystemUpTime) je v archive.

HTH
TOndrej

Odpovedá: Sommer Pavel

29. 4. 2004 13:48

>Neco takovyho zkousim, ale porad to pada na chybu EConvertError ( pri
tom prevodu TimeStampToDateTime).
>Tady je zdrojak
>function TForm5.GetLastBoot(Sender : TObject) : string; var
> pom : TDateTime;
>
>begin
> pom := TimeStampToDateTime(MSecsToTimeStamp(GetTickCount));
> pom := Date - pom;
> GetLastBoot := DateTimeToStr(pom);
>end;

Toto mi chodi perfekne:
ShowMessage(DateTimeToStr(TimeStampToDateTime(MSecsToTimeStamp(TimeStamp
ToMsecs(DateTimeToTimeStamp(Now())) - GetTickCount()))));

Odpovedá: Vasek Mlynar

29. 4. 2004 14:05

Co takhle napsat kod, ktery by pri kazdem spusteni windows napsal cas bud do
registru anebo na soubor na disk?

Vaclav Muller

Odpovedá: Stasko Peter

29. 4. 2004 14:11

Napis mi na petulo_moj<ryba>centrum<bodka>sk

Dam ti program aj zdrojaky

Co takhle napsat kod, ktery by pri kazdem spusteni windows napsal cas bud do
registru anebo na soubor na disk?

Vaclav Muller

Odpovedá: Lasevic, Martin

29. 4. 2004 14:51

Nee, kouknete se do Tipu a triku, tip c. , tam se da zjistit, jak dlouho uz
Wokna bezi a pak to odectes od Now() a mas datum a cas, kdy byly wokna
nastartovane

Martin

> -----Original Message-----
> From: Vasek Mlynar [mailto:v.mlynar@seznam.cz]
> Sent: Thursday, April 29, 2004 2:59 PM
> To: delphi-l@clexpert.cz
> Subject: Re: Jak zjistit v Delphi datum a cas spusteni Windows ?
>
>
> Co takhle napsat kod, ktery by pri kazdem spusteni windows
> napsal cas bud do registru anebo na soubor na disk?
>
> Vaclav Muller
>

Odpovedá: Erik Salaj, Winsoft

29. 4. 2004 14:58

Odpovedá: Jan Fiala

29. 4. 2004 17:25

29.4.2004 Dalibor Toman:
> zajimave zjisteni, ze ve windowsim svete nikdo nepredpoklada, ze by
> pocitac snad mohl bezet delsi dobu
> FYI: citac casu vraceny GetTickCount pretece cca kazdych 49 dni..

Ja vim, ale pokud to nema slouzit k necemu exaktnimu a predpoklada se,
ze pocitac se kazdy den zapina a vypina, je to pouzitelne...

--
Jan Fiala
mailto:jan.fiala@wo.cz

Odpovedá: Stasko Peter

29. 4. 2004 18:23

skuste: http://peterstasko.unas.cz/startwin.rar

mozno to hladate

> zajimave zjisteni, ze ve windowsim svete nikdo nepredpoklada, ze by
> pocitac snad mohl bezet delsi dobu
> FYI: citac casu vraceny GetTickCount pretece cca kazdych 49 dni..

Ja vim, ale pokud to nema slouzit k necemu exaktnimu a predpoklada se,
ze pocitac se kazdy den zapina a vypina, je to pouzitelne...

--
Jan Fiala
mailto:jan.fiala@wo.cz